home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / amac41b.arc / DSIZ.QM < prev    next >
Text File  |  1991-08-27  |  4KB  |  114 lines
  1. *                                 DSIZ.QM                   May 5, 1991
  2. * ----------------------------------------------------------------------
  3. * ^(F6_) Directory sizes sorted by size
  4. * ----------------------------------------------------------------------
  5.  
  6. This macro must ONLY be run as autoexecute macro with dsiz.bat. See
  7. dsiz.bat for other instructions. DX.EXE is required and can be found
  8. in AMAC-PRG.ZIP. See AMAC-K.INF for more details.
  9.  
  10.  
  11. *
  12. * Here's the output of dsiz.bat on my E: drive . . .
  13. *
  14. * Volume [E:Mininscrb_1] created: 91-Apr-02 19:15:24;
  15. *
  16. * Directory of [e:\up\]                         1,443,775 bytes in 263 files
  17. * Directory of [e:\com\]                          840,087 bytes in 111 files
  18. * Directory of [e:\disk\]                         671,114 bytes in 9 files
  19. *         .                                                  .
  20. *         .                                                  .
  21. *         .                                                  .
  22. * Directory of [e:\new-ware\]                       1,562 bytes in 4 files
  23. * Directory of [e:\bat\legal\]                        735 bytes in 1 file
  24. *   5,891,643 bytes in 969 files.     7,157,760 bytes allocated (18% slack).
  25. *
  26. *
  27. ^F6 macrobegin
  28. * ---------------------- erase all blanks lines ----------------------*
  29.         begfile
  30.  NOTBLANK:
  31.         endpara
  32.         cursordown
  33.  jfalse DONE:
  34.  BLANK:
  35.         endline begline
  36.  jtrue  NOTBLANK:
  37.         delline
  38.  jtrue BLANK:
  39.  DONE:
  40.         begfile
  41. * --------------------------- join lines ----------------------------*
  42.         Cursordown
  43.  JOINLINE:
  44.         UnmarkBlock
  45.         CursorDown
  46.         JFalse AT_EOF:
  47.         markcolumn
  48.         endline
  49.         markcolumn
  50.         cursorup
  51.         gotocolumn "50" return
  52.         moveblock
  53.         endline
  54.         delltword delltword delltword delltword
  55. * ------------------- delete blank line after join -------------------*
  56.         cursordown delline
  57.  AT_EOF:
  58.         begline                     * if we are at the last line of
  59.                                     * file, test fails and begin sort
  60. * ----------------- mark size block for reverse sort -----------------*
  61.         Jtrue JOINLINE:
  62.         begfile
  63.         unmarkblock
  64.         cursordown
  65.         gotocolumn "51" return
  66.         markcolumn
  67.         endfile
  68.         cursorup
  69.         gotocolumn "70" return
  70.         markcolumn
  71. * ----------------------- reverse sort by size -----------------------*
  72. *           ( this reverse sort was written by Tim Farley )
  73. *
  74. * NOTE:  Since this macro uses the Kill Buffer to reverse the
  75. *        lines, it cannot sort more lines than will fit in your
  76. *        Kill Buffer.  See (G)eneral options in the configuration
  77. *        program for setting this value--it defaults to only 30
  78. *        lines so BE CAREFUL! Set to the maximum number of
  79. *        directories in volume. I use 100.
  80. *
  81. * Do NOTE the notation in the comment:  you are limited to the size
  82. * of your Kill Buffer with this macro.
  83. *
  84.         GotoBlockBeg OneWindow
  85.         Sort
  86.         JFalse ENDSORT:
  87.         GotoBlockEnd MarkLine
  88.         EditFile "nul" Return
  89.         MoveBlock
  90.         DelLine
  91.  DELALL:   DelLine
  92.         JTrue DELALL:
  93.         UnKill
  94.  UNDELALL: CursorDown UnKill
  95.         JTrue UNDELALL:
  96.         DelLine CursorUp
  97.         DelLine CursorUp
  98.         MarkLine BegFile
  99.         PrevFile
  100.         CursorUp MoveBlock
  101.         NextFile Quit
  102.         GotoBlockBeg
  103.         UnMarkBlock
  104.  ENDSORT:
  105. * --------------------- move volume name to top ---------------------*
  106.         endfile cursorup
  107.         markline markline
  108.         begfile moveblock unmarkblock
  109.         savefile
  110. *
  111. * 116 bytes Fri  04-05-1991  17:01:02
  112.  
  113. * Tom Hogshead
  114.